home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / program / vbpxen.zip / VVGLBL.BAS < prev    next >
BASIC Source File  |  1991-10-07  |  2KB  |  87 lines
  1. '   Written by Steve Jackson
  2. '              9152 Brabham Dr.
  3. '              Huntington Beach, CA 92646
  4. '
  5. '  Global module for Visual Video Paradox demo
  6. '
  7. '  Important!  Change DEFAULT_DB_DIR to location of your
  8. '              paradox tables.  At run time (from EXE)
  9. '              you can get the working directory from
  10. '              CUR_DIR$, but at development time this
  11. '              function tells you where Visual Basic is,
  12. '              and not your project...
  13. '
  14. '              The program moves this value to db_dir$
  15. '              in STARTUP() function of VVDBMOD.BAS
  16. '
  17. Global Const DEFAULT_DB_DIR = "\VB\DB"
  18. Global db_dir$
  19. '
  20. '   Database records
  21. '
  22. Type CUST
  23.     custnumber As String
  24.     lastname As String
  25.     firstname As String
  26.     address As String
  27.     city As String
  28.     zip As String
  29.     tapes_out As Integer
  30.     total_spent As Single
  31. End Type
  32.  
  33. Type ITEM
  34.     itemnumber As String
  35.     itemdesc As String
  36.     custnum As String
  37.     inout_code As String
  38. End Type
  39. '
  40. '   GLOBAL VARIABLES
  41. '
  42. Global custrec As CUST
  43. Global itemrec As ITEM
  44. Global rc As Integer
  45. '
  46. '   CONSTANTS
  47. '
  48. Global Const DB_OK = 0
  49. Global Const DB_NOTFOUND = 89
  50. Global Const DB_RECLOCKED = 9
  51. Global Const TRUE = -1
  52. Global Const FALSE = 0
  53.  
  54. Global Const CUSTOMER_TABLE = 0
  55. Global Const ITEM_TABLE = 1
  56. Global Const NUMBER_OF_TABLES = 2
  57.  
  58. Global Const DBKEYED = 0
  59. Global Const DBFIRST = 1
  60. Global Const DBNEXT = 2
  61. Global Const DBLAST = 3
  62. Global Const DBPRIOR = 4
  63.  
  64. Global Const MB_OK = 0
  65. Global Const MB_OKCANCEL = 1
  66. Global Const MB_YESNOCANCEL = 3
  67. Global Const MB_YESNO = 4
  68. Global Const MB_RETRYCANCEL = 5
  69. Global Const MB_ICONSTOP = 16
  70. Global Const MB_ICONQUESTION = 32
  71. Global Const MB_ICONEXCLAMATION = 48
  72. Global Const MB_ICONINFORMATION = 64
  73. Global Const MB_DEFBUTTON2 = 256
  74. Global Const MB_DEFBUTTON3 = 512
  75.  
  76. Global Const IDOK = 1
  77. Global Const IDCANCEL = 2
  78. Global Const IDABORT = 3
  79. Global Const IDRETRY = 4
  80. Global Const IDIGNORE = 5
  81. Global Const IDYES = 6
  82. Global Const IDNO = 7
  83.  
  84. Global Const POINTER_DEFAULT = 0
  85. Global Const POINTER_HOURGLASS = 11
  86.  
  87.